home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_examples.exe / %MAINDIR% / Examples / NonShellNodes / CBuilder / FMain.dfm / FMain.txt
Encoding:
Text File  |  2001-08-31  |  2.7 KB  |  124 lines
  1. object FrmMain: TFrmMain
  2.   Left = 314
  3.   Top = 213
  4.   AutoScroll = False
  5.   Caption = 'Non-Shell Node Example'
  6.   ClientHeight = 253
  7.   ClientWidth = 400
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object PTSplitter1: TPTSplitter
  19.     Left = 0
  20.     Top = 0
  21.     Width = 400
  22.     Height = 208
  23.     Align = alClient
  24.     Position = 165
  25.     SplitterWidth = 4
  26.     TabOrder = 0
  27.     object PTSplitter1_pane1: TPTPane
  28.       Left = 0
  29.       Top = 0
  30.       Width = 165
  31.       Height = 208
  32.       Index = 0
  33.       object PTShellTree1: TPTShellTree
  34.         Left = 0
  35.         Top = 0
  36.         Width = 161
  37.         Height = 204
  38.         ShellList = PTShellList1
  39.         BorderStyle = bsNone
  40.         ShowRoot = False
  41.         DragMode = dmAutomatic
  42.         Indent = 19
  43.         OnChange = PTShellTree1Change
  44.         Align = alClient
  45.         ParentColor = False
  46.         TabOrder = 0
  47.       end
  48.     end
  49.     object PTSplitter1_pane2: TPTPane
  50.       Left = 169
  51.       Top = 0
  52.       Width = 231
  53.       Height = 208
  54.       Index = 1
  55.       object PTFrame1: TPTFrame
  56.         Left = 0
  57.         Top = 0
  58.         Width = 227
  59.         Height = 204
  60.         FrameStyle = ptfsNone
  61.         Align = alClient
  62.         Caption = 'Non shell node.'
  63.         Color = clBtnFace
  64.         ParentColor = False
  65.       end
  66.       object PTShellList1: TPTShellList
  67.         Left = 0
  68.         Top = 0
  69.         Width = 227
  70.         Height = 204
  71.         OnAddItem = PTShellList1AddItem
  72.         OnDblClickOpen = PTShellList1DblClickOpen
  73.         OnFillComplete = PTShellList1FillComplete
  74.         Align = alClient
  75.         BorderStyle = bsNone
  76.         ReadOnly = False
  77.         TabOrder = 0
  78.         ViewStyle = vsList
  79.       end
  80.     end
  81.   end
  82.   object Memo1: TMemo
  83.     Left = 0
  84.     Top = 208
  85.     Width = 400
  86.     Height = 45
  87.     Align = alBottom
  88.     BorderStyle = bsNone
  89.     Color = clBtnFace
  90.     Lines.Strings = (
  91.       ''
  92.       
  93.         'This example shows how non-shell nodes can be added to a tree. N' +
  94.         'ote the two '
  95.       
  96.         'non-shell nodes in the tree view and the single non-shell item i' +
  97.         'n the list view.')
  98.     ReadOnly = True
  99.     TabOrder = 1
  100.   end
  101.   object MainMenu1: TMainMenu
  102.     Left = 338
  103.     Top = 44
  104.     object File1: TMenuItem
  105.       Caption = '&File'
  106.       ShortCut = 0
  107.       object Exit1: TMenuItem
  108.         Caption = 'E&xit'
  109.         ShortCut = 32856
  110.         OnClick = Exit1Click
  111.       end
  112.     end
  113.     object Test1: TMenuItem
  114.       Caption = '&Test'
  115.       ShortCut = 0
  116.       object Registercustomicon1: TMenuItem
  117.         Caption = '&Register custom icon'
  118.         ShortCut = 0
  119.         OnClick = Registercustomicon1Click
  120.       end
  121.     end
  122.   end
  123. end
  124.